home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / quest10g.zip / NEWUSER.Q-A next >
Text File  |  1993-04-09  |  6KB  |  243 lines
  1. CLEARSCREEN
  2. DISPLAY "|SuperBBS NewUser Questionnaire"
  3. DISPLAY "|Version 1.00Γ"
  4. DISPLAY "|By Rob Borek, River Spills BBS"
  5. DISPLAY "|Registered to: UNREGISTERED"
  6. DISPLAY "|SysOp:         UNREGISTERED"
  7. DISPLAY "  "
  8. WAITENTER
  9. DISPLAYFILE RULES
  10. CHANGECOLOR 11 0
  11. CAPITALIZE ON
  12. DISPLAY "Do you agree to these rules and wish to continue? (Y/N) "
  13. GETCHOICE YN 1 Y
  14. CAPITALIZE OFF
  15. IF 1 = "N"
  16. SETSECURITY 0
  17. CHANGECOLOR 14 4
  18. DISPLAY "You will be logged off NOW!"
  19. QUIT
  20. ENDIF
  21. :A
  22. CLEARSCREEN
  23. CHANGECOLOR 9 0
  24. DISPLAY "|                                 ("
  25. CHANGECOLOR 12 0
  26. DISPLAY "----------------------------------------"
  27. CHANGECOLOR 9 0
  28. DISPLAY ")|"
  29. CHANGECOLOR 10 0
  30. DISPLAY "Your Full Name.■■■■■■■■■■■■■■■■■.:"
  31. ASK 40 2 USERNAME
  32. CHANGECOLOR 9 0
  33. DISPLAY "|                                 ("
  34. CHANGECOLOR 12 0
  35. DISPLAY "----------------------------------------"
  36. CHANGECOLOR 9 0
  37. DISPLAY ")|"
  38. CHANGECOLOR 10 0
  39. DISPLAY "Your Address.■■■■■■■■■■■■■■■■■■■.:"
  40. ASK 40 3
  41. CHANGECOLOR 9 0
  42. DISPLAY "|                                 ("
  43. CHANGECOLOR 12 0
  44. DISPLAY "----------------------------------------"
  45. CHANGECOLOR 9 0
  46. DISPLAY ")|"
  47. CHANGECOLOR 10 0
  48. DISPLAY "Your City and Province.■■■■■■■■■.:"
  49. ASK 40 4
  50. CHANGECOLOR 9 0
  51. DISPLAY "|                                 ("
  52. CHANGECOLOR 12 0
  53. DISPLAY "----------"
  54. CHANGECOLOR 9 0
  55. DISPLAY ")|"
  56. CHANGECOLOR 10 0
  57. DISPLAY "Your Postal Code.■■■■■■■■■■■■■■■.:"
  58. ASK 10 5
  59. CHANGECOLOR 9 0
  60. DISPLAY "|                                 ("
  61. CHANGECOLOR 12 0
  62. DISPLAY "-------------"
  63. CHANGECOLOR 9 0
  64. DISPLAY ")|"
  65. CHANGECOLOR 10 0
  66. DISPLAY "Your VOICE number.(xxx)xxx-xxxx■.:"
  67. ASK 13 6
  68. CHANGECOLOR 9 0
  69. DISPLAY "|                                 ("
  70. CHANGECOLOR 12 0
  71. DISPLAY "-------------"
  72. CHANGECOLOR 9 0
  73. DISPLAY ")|"
  74. CHANGECOLOR 10 0
  75. DISPLAY "Your DATA number.(xxx)xxx-xxxx■■.:"
  76. ASK 13 7
  77. CHANGECOLOR 9 0
  78. DISPLAY "|                                 ("
  79. CHANGECOLOR 12 0
  80. DISPLAY "----------------------------------------"
  81. CHANGECOLOR 9 0
  82. DISPLAY ")|"
  83. CHANGECOLOR 10 0
  84. DISPLAY "Your ALIAS.■■■■■■■■■■■■■■■■■■■■■.:"
  85. ASK 40 8
  86. CHANGECOLOR 9 0
  87. DISPLAY "|                                 ("
  88. CHANGECOLOR 12 0
  89. DISPLAY "--------"
  90. CHANGECOLOR 9 0
  91. DISPLAY ")|"
  92. CHANGECOLOR 10 0
  93. DISPLAY "Your Birthday.(DD/MM/YY).■■■■■■■.:"
  94. ASK 8 9
  95. DISPLAY "|Are you a SysOp? (Y/N) "
  96. CAPITALIZE ON
  97. GETCHOICE YN 10 N
  98. CAPITALIZE OFF
  99. IF 10 = "Y"
  100. CHANGECOLOR 9 0
  101. DISPLAY "|                                 ("
  102. CHANGECOLOR 12 0
  103. DISPLAY "----------------------------------------"
  104. CHANGECOLOR 9 0
  105. DISPLAY ")|"
  106. CHANGECOLOR 10 0
  107. DISPLAY "BBS Name.■■■■■■■■■■■■■■■■■■■■■■■.:"
  108. ASK 40 11
  109. CHANGECOLOR 9 0
  110. DISPLAY "|                                 ("
  111. CHANGECOLOR 12 0
  112. DISPLAY "-------------"
  113. CHANGECOLOR 9 0
  114. DISPLAY ")|"
  115. CHANGECOLOR 10 0
  116. DISPLAY "BBS Telephone Number.■■■■■■■■■■■.:"
  117. ASK 13 12
  118. CHANGECOLOR 9 0
  119. DISPLAY "|                                 ("
  120. CHANGECOLOR 12 0
  121. DISPLAY "-----"
  122. CHANGECOLOR 9 0
  123. DISPLAY ")|"
  124. CHANGECOLOR 10 0
  125. DISPLAY "BBS Speed.■■■■■■■■■■■■■■■■■■■■■■.:"
  126. ASK 5 13
  127. CHANGECOLOR 9 0
  128. DISPLAY "|                                 ("
  129. CHANGECOLOR 12 0
  130. DISPLAY "------------"
  131. CHANGECOLOR 9 0
  132. DISPLAY ")|"
  133. CHANGECOLOR 10 0
  134. DISPLAY "FIDO Node Number (NONE if none)..:"
  135. ASK 12 14
  136. DISPLAY "|Thank You Visiting SysOp for calling"
  137. DISPLAY "|I will get in touch with you or your system to verify the"
  138. DISPLAY " information."
  139. ENDIF
  140. CHANGECOLOR 13 0
  141. DISPLAY "|Thank you for filling out all the questions."
  142. DISPLAY "|Now you can check all your answers.|"
  143. WAITENTER
  144. CLEARSCREEN
  145. CHANGECOLOR 11 0
  146. DISPLAY "|These are your answers.|"
  147. CHANGECOLOR 10 0
  148. DISPLAY "|Name.■■■■■■■■■■■■■■■■■.: "
  149. CHANGECOLOR 13 0
  150. DISPLAYASW 2
  151. CHANGECOLOR 10 0
  152. DISPLAY "|Address.■■■■■■■■■■■■■■.: "
  153. CHANGECOLOR 13 0
  154. DISPLAYASW 3
  155. CHANGECOLOR 10 0
  156. DISPLAY "|City and Province.■■■■.: "
  157. CHANGECOLOR 13 0
  158. DISPLAYASW 4
  159. CHANGECOLOR 10 0
  160. DISPLAY "|Postal Code.■■■■■■■■■■.: "
  161. CHANGECOLOR 13 0
  162. DISPLAYASW 5
  163. CHANGECOLOR 10 0
  164. DISPLAY "|VOICE Number.■■■■■■■■■.: "
  165. CHANGECOLOR 13 0
  166. DISPLAYASW 6
  167. CHANGECOLOR 10 0
  168. DISPLAY "|DATA Number.■■■■■■■■■■.: "
  169. CHANGECOLOR 13 0
  170. DISPLAYASW 7
  171. CHANGECOLOR 10 0
  172. DISPLAY "|Alias.■■■■■■■■■■■■■■■■.: "
  173. CHANGECOLOR 13 0
  174. DISPLAYASW 8
  175. CHANGECOLOR 10 0
  176. DISPLAY "|Birthday.■■■■■■■■■■■■■.: "
  177. CHANGECOLOR 13 0
  178. DISPLAYASW 9
  179. CHANGECOLOR 10 0
  180. IF 10 = "Y"
  181. CHANGECOLOR 10 0
  182. DISPLAY "|BBS Name.■■■■■■■■■■■■■.: "
  183. CHANGECOLOR 13 0
  184. DISPLAYASW 11
  185. CHANGECOLOR 10 0
  186. DISPLAY "|BBS Number.■■■■■■■■■■■.: "
  187. CHANGECOLOR 13 0
  188. DISPLAYASW 12
  189. CHANGECOLOR 10 0
  190. DISPLAY "|BBS Speed.■■■■■■■■■■■■.: "
  191. CHANGECOLOR 13 0
  192. DISPLAYASW 13
  193. CHANGECOLOR 10 0
  194. DISPLAY "|FIDO Node Number.■■■■■.: "
  195. CHANGECOLOR 13 0
  196. DISPLAYASW 14
  197. ENDIF
  198. CHANGECOLOR 13 1
  199. DISPLAY "|All Answers Correct? (Y/N)"
  200. CAPITALIZE ON
  201. GETCHOICE YN 15 Y
  202. CAPITALIZE OFF
  203. IF 15 = "N"
  204. CLEARSCREEN
  205. GOTO A
  206. ENDIF
  207. CHANGECOLOR 11 0
  208. DISPLAY "|Thank You for answering all questions."
  209. DISPLAY "|The answers are now stored."
  210. IF 10 = "Y"
  211. SETSECURITY 64
  212. SETFLAG A1 OFF
  213. CHANGECOLOR 11 0
  214. DISPLAY "|"
  215. DISPLAY "|You now have Visiting SysOp (Non-Registered BBS Program)"
  216. DISPLAY " sec. level."
  217. ENDIF
  218. POSTINFO
  219. OUTPUTANSWER "Name.........: " 2
  220. OUTPUTANSWER "Address......: " 3
  221. OUTPUTANSWER "City and Prov: " 4
  222. OUTPUTANSWER "Postal Code..: " 5
  223. OUTPUTANSWER "VOICE Phone..: " 6
  224. OUTPUTANSWER "DATA Phone...: " 7
  225. OUTPUTANSWER "Alias........: " 8
  226. OUTPUTANSWER "Birthday.....: " 9
  227. IF 10 = "Y"
  228. OUTPUTANSWER "BBS Name.....: " 11
  229. OUTPUTANSWER "BBS Number...: " 12
  230. OUTPUTANSWER "BBS Speed....: " 13
  231. OUTPUTANSWER "FIDO Node #..: " 14
  232. DISPLAY "||You will now post a letter to the SysOp"
  233. DISPLAY "|Tell him what your interests are, and what you like in a BBS"
  234. WAITENTER
  235. DOMENUC 27 1 /T=Rob_Borek "Loading Message Editor"
  236. IF 10 = "Y"
  237. DISPLAY "|"
  238. DISPLAY "|You will now enter your BBS in the BBS Database"
  239. DOMENUC 56 "Going to BBS Database"
  240. QUIT
  241.  
  242.  
  243.